unit uDM1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, IBConnection, sqldb, FileUtil, db;

type

  { TDM1 }

  TDM1 = class(TDataModule)
    CONEXAO: TIBConnection;
    SQLQFuncionario: TSQLQuery;
    SQLQFuncionarioATIVO: TStringField;
    SQLQFuncionarioENDERECO: TStringField;
    SQLQFuncionarioENDERECO_NUMERO: TLongintField;
    SQLQFuncionarioID: TLongintField;
    SQLQFuncionarioID_BAIRRO: TLongintField;
    SQLQFuncionarioID_SETOR: TLongintField;
    SQLQFuncionarioNOME: TStringField;
    SQLQFuncionarioTELEFONE1: TStringField;
    SQLQFuncionarioTELEFONE2: TStringField;
    SQLQFuncionarioTIPO: TStringField;
    SQLTConexao: TSQLTransaction;
    SQLTFuncionario: TSQLTransaction;
    procedure DataModuleCreate(Sender: TObject);

  private
    { private declarations }
  public
    { public declarations }
  end;

var
  DM1: TDM1;

implementation

{$R *.lfm}

{ TDM1 }



procedure TDM1.DataModuleCreate(Sender: TObject);
begin

end;

end.

